home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 88
/
Tiger_Disk_088_20xx_Tiger-Crew-Disk_de_Side_C.d64
/
seq-reader [td]
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
240b
|
11 lines
10 poke53280,0:poke53281,0:poke53272,23:print"[147][155]":input"[198]ile-[206]ame ";x$:print"[147]";
20 open2,8,2,x$+",s,r"
30 get#2,a$:ifst<>0then100
40 getc$:ifc$<>" "then90
50 poke53280,11:getc$:ifc$=" "then80
60 ifc$="e"then100
70 goto50
80 poke53280,0
90 printa$;:goto30
100 close2:print:print"...und tschuess...!"